﻿
Partial Class Default2
    Inherits System.Web.UI.Page
    Dim ocnProfesor As New Negocio.Profesor

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            ocnProfesor.RegistrarProfesor(Me.TextBox1.Text, Me.TextBox3.Text, Me.TextBox4.Text, Me.TextBox5.Text, Me.TextBox6.Text, Me.TextBox7.Text)
        Catch ex As Exception
            Session.Add("Error", ex)
            Response.Redirect("ManejarErrores.aspx")
        End Try
    End Sub
End Class
